home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
olrdrs
/
1st_111b.zip
/
SCRIPTS.ZIP
/
$$GOCITY.SCR
< prev
next >
Wrap
Text File
|
1993-05-23
|
1KB
|
48 lines
' ┌──────────────────────────────────────┐
' │ PC Pursuit city script for 1stReader │
' │ Written by Mark Herring │
' │ May 15th, 1993 │
' └──────────────────────────────────────┘
LOCKLINE 20 78
LOOKFOR "NO CARRIER" "(HANGUP)"
COMMENT "@DATE@ @TIME@ Connecting to PC Pursuit"
PRINT " @X7F┌────────────────────────────────────@X70┐@X07"
PRINT " @X7F│@X70 1stReader PC Pursuit City Script │@X07"
PRINT " @X7F└@X70────────────────────────────────────┘@X07"
PRINT "$TOP 4"
CLS
:CITY
IF WEEKDAY=7 GOTO BEGIN 'Saturday is ok
IF WEEKDAY=1 GOTO BEGIN 'Sunday is ok too
IF CHECKTIME(5:00,17:59) GOTO PRIME
:BEGIN
COMMENT "@DATE@ @TIME@ Transmitting PC Pursuit user id"
TRANSMIT "C D/@API$(108)/@PCPCON@,@API$(106)^M"
WAITFOR "PASSWORD =" 20
COMMENT "@DATE@ @TIME@ Transmitting password"
TRANSMIT "@API$(107)^M"
WAITFOR "CONNECTED|BUSY"
IF FOUND=1 GOTO DIAL
GOTO CITY
:DIAL
COMMENT "@DATE@ @TIME@ Connected to @API$(108)"
SET_API(156)=0
SET_API(171)=-1
SET_API(204)=-1
SET_API$(127)=$$TELNET.SCR
PAUSE 1
PRINT "$TOP 1"
EXIT
:PRIME
BEEP
PROMPT "PC Pursuit prime time usage is not allowed"
SET_API(81)=-1
PRINT "$TOP 1"